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-- file BootControl .Mesa 

-- last edited by Sandman, August 31. 1978 5:23 PM 

DIRECTORY 

BootCacheDefs: FROM "bootcachedef s" , 
BootmesaDefs: FROM "bootmesadef s" , 
CommanderDefs: FROM "commanderdef s" , 
ImageDefs: FROM "imagedefs", 
MiscDefs: FROM "miscdefs", 
StringDefs: FROM "stringdef s" . 
TimeDefs: FROM "timedefs"; 

BootControl: PROGRAM 

IMPORTS BootCacheDefs, BootmesaDefs, CommanderDefs, ImageDefs, StringDefs, 
TimeDefs, MiscDefs ■ 

BEGIN 

Data: BootmesaDefs. BootData; 
imagename: STRING <- [40]; 

Writelmage: PROCEDURE - 
BEGIN OPEN TimeDefs: 

StringDefs.AppendString[herald, "Alto/Mesa Bootmesa "L]; 
AppendDay Time [her a ld,UnpackDT[ TimeDefs .CurrentDayTime[]]]; 
herald, length <- herald, length-3; -- remove seconds 
ImageDefs .MakeImage["Bootmesa. Image. "L]; 
RETURN 
END; 

RunlnitCode: PROCEDURE « 
BEGIN 

MiscDefs. SetBlock[(9Data, NIL, SIZE[BootmesaDefs. BootData]]; 
Data. imageFileRoot <- imagename; 
START CommanderDefs .Commander[herald]; 
START BootmesaDefs .Bootmesa[®Data]; 
START BootmesaDefs .BootImage[QData]; 
START BootmesaDefs.BootScript[@Data]; 
START BootCacheDefs. BootCache; 
START BootmesaDefs.BuildNucleus; 
END; 

herald: STRING ^ [40]; 

-- Main Body 

RunInitCode[]; 

Writelmage[]; 

RESTART CommanderDefs. Commander; 

END... 


